home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / tvtool2.zip / TVOBJECT.INT < prev    next >
Text File  |  1993-07-20  |  2KB  |  97 lines
  1. UNIT TvObject;
  2. {$B+}
  3. {$X+}
  4. {$V-}
  5.  
  6. {$I TVDEFS.INC}
  7.  
  8. INTERFACE
  9.  
  10.  
  11. USES
  12.   TvString,
  13.   Objects;
  14.  
  15.  
  16. TYPE
  17.   PbxObject = ^TbxObject;
  18.   TbxObject = Object(TObject)
  19.     Function    GetText(MaxLen : Integer): String;        Virtual;
  20.   end;
  21.  
  22.  
  23.   PbxSelectObject = ^TbxSelectObject;
  24.   TbxSelectObject = Object(TbxObject)
  25.     Selected : Boolean;
  26.  
  27.     Constructor Load(var S: TStream);
  28.     Function    GetSelect: Boolean;                       Virtual;
  29.     Procedure   SetSelect(AState : Boolean);              Virtual;
  30.     Procedure   Store(var S: TStream);
  31.   end;
  32.  
  33.  
  34.   PbxSelectStr = ^TbxSelectStr;
  35.   TbxSelectStr = Object(TbxSelectObject)
  36.     St : PString;
  37.  
  38.     Constructor Init (const AString : String);
  39.     Constructor Load(var S: TStream);
  40.     Destructor  Done;                                     Virtual;
  41.     Function    GetText(MaxLen : Integer): String;        Virtual;
  42.     Procedure   Store(var S: TStream);
  43.   end;
  44.  
  45.  
  46.   PbxCollection = ^TbxCollection;
  47.   TbxCollection = Object(TSortedCollection)
  48.     Function Compare(Key1, Key2 : Pointer): Integer;      Virtual;
  49.   end;
  50.  
  51.  
  52.   PbxUnsortedStringCollection  = ^TbxUnsortedStringCollection;
  53.   TbxUnsortedStringCollection  = Object(TStringCollection)
  54.     Procedure   Insert(Item : Pointer);                 Virtual;
  55.   end;
  56.  
  57.  
  58. { TvObject registration procedure }
  59.  
  60. Procedure RegisterTVObject;
  61.  
  62.  
  63. { Stream Registration Records }
  64.  
  65. CONST
  66.   RbxSelectObject: TStreamRec = (
  67.     ObjType : 5150;
  68.     VmtLink : Ofs(TypeOf(TbxSelectObject)^);
  69.     Load    : @TbxSelectObject.Load;
  70.     Store   : @TbxSelectObject.Store
  71.   );
  72.  
  73. CONST
  74.   RbxSelectStr: TStreamRec = (
  75.     ObjType : 5151;
  76.     VmtLink : Ofs(TypeOf(TbxSelectStr)^);
  77.     Load    : @TbxSelectStr.Load;
  78.     Store   : @TbxSelectStr.Store
  79.   );
  80.  
  81. CONST
  82.   RbxCollection: TStreamRec = (
  83.     ObjType : 5152;
  84.     VmtLink : Ofs(TypeOf(TbxCollection)^);
  85.     Load    : @TbxCollection.Load;
  86.     Store   : @TbxCollection.Store
  87.   );
  88.  
  89. CONST
  90.   RbxUnsortedStringCollection: TStreamRec = (
  91.     ObjType : 5153;
  92.     VmtLink : Ofs(TypeOf(TbxUnsortedStringCollection)^);
  93.     Load    : @TbxUnsortedStringCollection.Load;
  94.     Store   : @TbxUnsortedStringCollection.Store
  95.   );
  96.  
  97.